home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / lib / alib / ieeedtranlib.a < prev    next >
Text File  |  1994-02-01  |  856b  |  45 lines
  1.  
  2.             ;   autoinit if you ever reference MathIeeeDoubBasBase
  3.             ;
  4.             ;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  5.             ;
  6.             ;   can't use pc-relative between different code sections
  7.             ;   and cannot put string in autoinit section!
  8.  
  9.             xdef    _MathIeeeDoubTransBase
  10.             xref    _MathIeeeDoubBasBase
  11.             xref    __AutoFail0
  12.  
  13. _LVOOpenLibrary     equ    -552
  14. _LVOCloseLibrary    equ    -414
  15.  
  16.             section autoinit0,code
  17.  
  18.             moveq.l #0,D0
  19.             lea    ieeetranname(pc),A1
  20.             jsr    _LVOOpenLibrary(A6)
  21.             move.l    D0,_MathIeeeDoubTransBase(A4)
  22.             beq    __AutoFail0
  23.             move.l    _MathIeeeDoubBasBase(A4),D0 ; DUMMY REFERENCE
  24.             bra    i10
  25. ieeetranname        dc.b    'mathieeedoubtrans.library',0
  26.             ds.w    0
  27.  
  28. i10
  29.  
  30.             section autoexit0,code
  31.  
  32.             move.l    _MathIeeeDoubTransBase(A4),D0
  33.             beq    l10
  34.             move.l    D0,A1
  35.             jsr    _LVOCloseLibrary(A6)
  36. l10
  37.  
  38.  
  39.             section libbss,bss
  40.  
  41. _MathIeeeDoubTransBase    ds.l    1
  42.  
  43.             END
  44.  
  45.